﻿Imports System.Data.SqlClient

Public Class Form1
  Private Sub Form1_Load(
        ByVal sender As Object,
        ByVal e As System.EventArgs) _
        Handles Me.Load
    Me.SqlConnection1.ConnectionString =
      "Integrated Security=SSPI;" &
      "Persist Security Info=False;" &
      "User ID='';" &
      "Initial Catalog=03_Customers_and_Orders;" &
      "Data Source=(local);" &
      "Initial File Name=''"
  End Sub

  Private Sub btnLeggiDato_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles btnLeggiDato.Click
    Dim SQL As String =
      "SELECT COUNT(*) AS Numero FROM Customers"
    Me.SqlConnection1.Open()
    Dim Comando As New SqlCommand(
      SQL, Me.SqlConnection1)
    Dim Numero As Integer =
      CInt(Comando.ExecuteScalar)
    Me.SqlConnection1.Close()
    Me.Label1.Text =
      "Numero record 'Customers': " & Numero
  End Sub
End Class
